home *** CD-ROM | disk | FTP | other *** search
/ Belgian Amiga Club - ADF Collection / BS1 part 47.7z / BS1 part 47 / HiSoft BASIC v1.04 (1989)(HiSoft)(Disk 2 of 2)[h Band].7z / HiSoft BASIC v1.04 (1989)(HiSoft)(Disk 2 of 2)[h Band].adf / music / polyphonic.bas < prev    next >
Encoding:
BASIC Source File  |  1988-12-03  |  478 b   |  21 lines
  1. SOUND WAIT
  2.  
  3. GetInfo:
  4.   READ freq,dur,vol,chl
  5.   IF freq=-1 THEN Play
  6.   SOUND freq,dur,vol,chl
  7. GOTO GetInfo:
  8.  
  9. Play:
  10.   SOUND RESUME
  11.  
  12. DATA 523.23,15,127,0, 659.28,15,96,1, 784,15,96,2
  13. DATA 784.15,15,222,0, 987.76,15,180,1, 1174.52,15,180,2
  14. DATA 698.48,6,127,0, 0,6,0,1, 0,6,0,2
  15. DATA 659.28,6,127,0, 0,6,0,1, 0,6,0,2
  16. DATA 587.28,6,127,0, 0,6,0,1, 0,6,0,2
  17. DATA 1046.52,15,225,0, 1318.52,15,180,1, 1568,15,180,2
  18. DATA 784,24,180,0, 987.76,24,160,1, 1174.52,24,160,2
  19. DATA -1,-1,-1,-1
  20.   
  21.